00100		SUBROUTINE RDWRT
00200	C TO READ AND RWITE TONE-ROW LIBRARY FILE
00300		COMMON INV(12),IR(12),N(12),J(13,13),ISCAL(12),IS2(12),
00400		1 INP2(72),INP(72),NRW
00500		1,IC(6),ISQ(25,25),NAME(10),INOT(49),JA(12)
00600	15	TYPE 13
00700		ACCEPT 2,NM
00750		REREAD 7,MA
00775		IF(MA.NE.0)GO TO 20
00800		IF(NM.EQ.' ')NM='ROWS'
00900		IF(NRW.EQ.'R')GO TO 1
01000	CC	IF(LOOKD(NM))GO TO 1
01100	C 'LOOKD' LOOKS FOR .DAT FILE -- 'LOOK' LOOKS FOR NO EXT.
01200		CALL OFILE(1,NM)
01300		WRITE(1,2)NAME
01400		WRITE(1,3)INP2
01500		END FILE 1
01600		RETURN
01700	2	FORMAT(10A5)
01800	3	FORMAT(72A1)
01900	5	FORMAT(1X10A5)
02100	7	FORMAT(I,10A5)
02200	8	FORMAT(I,72A1)
02250	13	FORMAT(' TYPE FILE NAME -- '$)
02300	10	FORMAT(' TYPE NUMBER -- '$)
02400	11	FORMAT(I3,') ',10A5)
02500	1	CALL IFILE(1,NM)
02800		KA=1
03300	4	READ(1,7,END=9)M,NAME
03320		TYPE 11,KA,NAME
03340		KA=KA+1
03350		READ(1,7,END=9)M,NAME
03355	C READS ROW NOTES.
03360		GO TO 4
03365	20	NM=NMX
03370		GO TO 21
03380	9	TYPE 10
03400		ACCEPT 7,MA
03700	21	IF(MA.LE.0.OR.MA.GT.KA)GO TO 15
03710		CALL IFILE(1,NM)
03720		DO 12 K=1,MA
03800		READ(1,7,END=9)MM,NAME
03848	12	READ(1,8,END=9)MM,INP2
03856	C  READS SOS FILES ONLY
03864	C READS ROW NOTES.
04700		NMX=NM
05100		END
05200	
05300		SUBROUTINE MSS12
05400	C  TO CREATE DATA FOR MSS PROG.
05500	C  THIS IS A DUMMY
05600		END